home *** CD-ROM | disk | FTP | other *** search
/ Publication 6 / Publication_06_19xx_High-Tech_de_Side_A.d64 / track-racer ii (.txt) < prev    next >
Commodore BASIC  |  2023-02-26  |  2KB  |  120 lines
  1. 1000 rem
  2. 1010 print"[147]"
  3. 1020 poke53280,0:poke53281,0
  4. 1030 rem
  5. 1040 rem
  6. 1050 fori=0to62:readj:poke832+i,j:next
  7. 1060 fori=0to62:readj:poke896+i,j:next
  8. 1070 v=53248
  9. 1075 gosub1720
  10. 1080 poke2040,13:pokev+21,1
  11. 1090 poke2041,14:pokev+40,8
  12. 1100 pokev+39,14
  13. 1110 pokev,150:pokev+1,180
  14. 1120 pokev+28,2
  15. 1130 rem
  16. 1140 s=54272:fori=0to24:pokes+i,0:next
  17. 1150 pokes+5,31:pokes+6,240
  18. 1160 pokes+24,15
  19. 1170 l=12:x=150:w=12
  20. 1180 poke646,14
  21. 1190 printchr$(147):se=0
  22. 1200 fori=1to20
  23. 1210 printtab(l)"^"spc(w)"^"
  24. 1220 next:pokev+31,0
  25. 1230 pokes+4,33:pokes,100:pokes+1,4
  26. 1240 printchr$(19)chr$(158)"punkte"
  27. 1250 printchr$(19)tab(28)"max."
  28. 1260 rem
  29. 1270 dir=1:ifrnd(1)<.5thendir=2
  30. 1280 se=se+1:q=q+1
  31. 1290 ifdir=1thenl=l-1
  32. 1300 ifl<10thenl=l+1
  33. 1310 ifdir=2thenl=l+1
  34. 1320 ifl>20thenl=l-1
  35. 1330 printchr$(19)chr$(17);
  36. 1340 printchr$(157)chr$(148)
  37. 1350 poke218,160
  38. 1360 printtab(l)"[166]"spc(w)"[166]"
  39. 1370 p=peek(56320)
  40. 1380 ifp=123thenz=1
  41. 1390 ifp=119thenz=2
  42. 1400 onzgosub1510,1530
  43. 1410 pokev,x
  44. 1420 printchr$(19)tab(6);se
  45. 1430 ifse>hithenhi=se
  46. 1440 printchr$(19)tab(34);hi
  47. 1450 ifq=100thenw=w-1:q=0
  48. 1460 ifpeek(v+31)and1=1then1560
  49. 1470 pokev+31,0
  50. 1480 ifw=8thenw=12
  51. 1490 goto1270
  52. 1500 rem
  53. 1510 x=x-4:ifx<10thenx=10
  54. 1520 return
  55. 1530 x=x+4:ifx>250thenx=250
  56. 1540 return
  57. 1550 rem
  58. 1560 pokev+21,2
  59. 1570 pokev+2,x:pokev+3,180
  60. 1580 forb=15to0step-.2:pokes+1,2+b
  61. 1590 pokes+4,129:pokes+24,b
  62. 1600 pokev+37,int(rnd(ti)*14)
  63. 1610 pokev+38,int(rnd(ti)*14)
  64. 1620 next:pokes+4,0
  65. 1630 pokev+21,0
  66. 1640 rem
  67. 1650 printchr$(19)
  68. 1660 poke646,int(rnd(ti)*15)
  69. 1670 fori=1to4:printchr$(17):next
  70. 1680 printtab(7)"feuerknopf fuer ";
  71. 1690 print"neues spiel"
  72. 1700 ifpeek(56320)<>111then1650
  73. 1710 goto1075
  74. 1720 print"[147]"
  75. 1730 printchr$(19)chr$(30)
  76. 1740 printtab(7)"< t r a c k * ";
  77. 1750 print"r a c e r >"
  78. 1760 printchr$(17)chr$(17)
  79. 1770 printtab(2)"steuere dein auto ";
  80. 1780 print"mit dem joystick"
  81. 1790 printtab(2)"die glatte fahrbahn ";
  82. 1800 print"entlang."
  83. 1810 printtab(2)"aber pass auf! ";
  84. 1820 print"die strasse wird"
  85. 1830 printtab(2)"s c h m a l e r ..."
  86. 1840 printchr$(17)chr$(17)chr$(17)
  87. 1850 printtab(12)"taste druecken"
  88. 1855 printchr$(17)tab(12)">a = anfaenger"
  89. 1857 printchr$(17)tab(12)">e = experte  "
  90. 1858 printchr$(17)tab(12)">x = exit to basic"
  91. 1860 geta$:ifa$=""then1860
  92. 1865 ifa$="a"thengosub3000:goto1870
  93. 1866 ifa$="x"thengoto5000
  94. 1867 ifa$="e"thengosub4000:goto1870
  95. 1868 ifa$<>"e"ora$<>"a"then1860
  96. 1870 return
  97. 1880 rem
  98. 1890 data0,248,0,0,248,0,0,248,0,5,141
  99. 1900 data0,7,239,0,5,221,0,1,220,0,1
  100. 1910 data252,0,1,140,0,1,36,0,1,116,0,1
  101. 1920 data252,0,1,252,0,3,86,0,54,219,96
  102. 1930 data55,223,96,63,87,224,54,251,96
  103. 1940 data50,2,96,7,255,0,7,255,0
  104. 1950 rem
  105. 1960 data0,32,0,2,73,52,6,157,193,104
  106. 1970 data188,29,131,54,124,44,118,249
  107. 1980 data65,231,242,31,227,178,78,8,57
  108. 1990 data39,63,156,47,159,30,73,222,124
  109. 2000 data36,194,240,73,248,198,19,153
  110. 2010 data216,71,205,144,23,15,36,16,103
  111. 2020 data72,13,146,80,0,8,144,3,87,32
  112. 3000 pokev+23,0:pokev+29,0:return
  113. 4000 pokev+23,3:pokev+29,3:return
  114. 5000 print"[147]"tab(15)"sicher(j/n)?"
  115. 5010 geto$:ifo$=""then5010
  116. 5020 ifo$="n"thenrun
  117. 5030 ifo$="j"then5050
  118. 5040 ifo$<>"j"oro$<>"n"then5010
  119. 5050 sys64738
  120.